CD-ROM Today - The Disc! 5/CD-ROM Today - The Disc (Issue 5)(November 1994).ISO/mac/DHA demo/Don Norman Folder/The Library/The Library.rsrc/CSTR_16740_getBooksCSTR

Text File | 1994-09-21 | 1.7 KB | 50 lines

global books,NLList,gTTKPresent,gTTKName,gTTKTemplateList,gNBSN,xxxStackPath
LM true
put "" into sloc
if there is a window "scroll" then
put loc of window "scroll" into sloc
set loc of window "scroll" to "-1000,-1000"
end if
get getstackpath()
get GetFilesInDir(it,"STAK",return)
put the short id of this cd into t
put the short name of this stack into bweird
put "" into books
put "" into NLList
put "" into gTTKTemplateList
put "false" into gTTKPresent
repeat with x = 1 to number of lines in it
set cursor to "busy"
put line x of it into zzz
do "go stack zzz"
if get1str("VoyagerBook") ¡ ""  and get1str("TextToolKit")="" then put zzz into line (number of lines in books)+1 of books
if get1str("Template") = "Template" then put zzz into line (number of lines in gTTKTemplateList)+1 of gTTKTemplateList
if get1str("NeedsLibrary") ¡ "" then put zzz into line (number of lines in NLList)+1 of NLList
if get1str("NewVoyagerNoteBookStack") ¡ "" then put zzz into gNBSN
if gTTKPresent = "false" then
put (get1str("TextToolKit")¡"") into gTTKPresent
if (gTTKPresent = "true") then
put the short name of this stack into gTTKName
end if
end if
end repeat
do "go cd id t in stack bweird"
if there is a window "scroll" then
if (visible of window "scroll") then
put the itemdelimiter into id
set the itemdelimiter to ","
put rect of cd window into r
put the screenrect into rs
put item 4 of rs - item 2 of rs into rsh
put item 3 of rs - item 1 of rs into rsw
put item 4 of r - item 2 of r into rh
put item 3 of r - item 1 of r into rw
if ((rh <= rsh) and (rw <= rsw)) then
hide window "scroll"
end if
set the itemdelimiter to id
end if
if sLoc¡"" then
set the loc of window "scroll" to sLoc
end if
end if